home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / egavga.swg / 0041_VGA Detect #1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  742 b   |  48 lines
  1. {
  2. SEAN PALMER
  3.  
  4. Well, here are routines to detect a VGA and an EGA adapter...
  5. }
  6. Uses
  7.   Crt;
  8.  
  9. Var
  10.   OldMode : Byte;
  11.  
  12. function EGAInstalled : boolean; assembler;
  13. asm
  14.   mov ax, $1200
  15.   mov bx, $10
  16.   mov cx, $FFFF
  17.   int $10
  18.   inc cx
  19.   mov al, cl
  20.   or  al, ch
  21. end;
  22.  
  23. function VgaPresent : boolean; assembler;
  24. asm
  25.   mov ah, $F
  26.   int $10
  27.   mov oldMode, al   {save old Gr mode}
  28.   mov ax, $1A00
  29.   int $10           {check for VGA/MCGA}
  30.   cmp al, $1A
  31.   jne @ERR          {no VGA Bios}
  32.   cmp bl, 7
  33.   jb  @ERR          {is VGA or better?}
  34.   cmp bl, $FF
  35.   jnz @OK
  36.  @ERR:
  37.   xor al, al
  38.   jmp @EXIT
  39.  @OK:
  40.   mov al, 1
  41.  @EXIT:
  42. end;
  43.  
  44. begin
  45.   OldMode := LastMode;
  46.   Writeln(EGAInstalled);
  47.   Writeln(VGAPresent);
  48. end.